procedure AnimarForm (Form: TForm);
begin
  AnimateWindow (Form.Handle, 2000, AW_BLEND);
end;